* shr.el (shr-table-body): Allow tables to have text children.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 88041f7e553ab7a1d32c7c1c741b71f0e19ab969..746cbb61aae57cd38a0135a1c18ef20e538c79d8 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1602,7 +1602,7 @@ The preference is a float determined from `shr-prefer-media-type'."
 (defun shr-table-body (dom)
   (let ((tbodies (seq-filter (lambda (child)
                                (eq (dom-tag child) 'tbody))
-                             (dom-children dom))))
+                             (dom-non-text-children dom))))
     (cond
      ((null tbodies)
       dom)